home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / ENUMDBL.M < prev    next >
Encoding:
Modula Definition  |  1990-10-22  |  302 b   |  22 lines
  1. DEFINITION MODULE A;
  2.  
  3. TYPE Enum = (one, two, three);
  4.  
  5. END A.
  6.  
  7. MODULE B;
  8.  
  9. FROM A IMPORT one;
  10. FROM A IMPORT two; (* hier darf kein Fehler kommen *)
  11.  
  12. TYPE Enum2 = (eins, zwei, drei);
  13.  
  14. MODULE Local;
  15.  
  16.   IMPORT eins;
  17.   IMPORT zwei; (* hier darf kein Fehler kommen *)
  18.  
  19. END Local;
  20.  
  21. END B.
  22.